object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 276
  Top = 109
  Height = 596
  Width = 934
  object stoks: TDataSource
    DataSet = spStok
    Left = 16
    Top = 64
  end
  object connect: TADOConnection
    CommandTimeout = 45
    ConnectionString = 'FILE NAME=F:\My\proj\KSYS\Ksys.Udl;'
    ConnectionTimeout = 50
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLOLEDB.1'
    Left = 19
    Top = 9
  end
  object spagrupekle: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_agrupekle;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@GRKOD'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@ISIM'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end>
    Left = 944
    Top = 56
  end
  object spagrupduzelt: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_agrupduzelt;1'
    Parameters = <>
    Left = 944
    Top = 256
  end
  object spagrupsil: TADOStoredProc
    AutoCalcFields = False
    Connection = connect
    ProcedureName = 'sp_agrupsil;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@GRKOD'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@GRadi'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@isim'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end>
    Left = 832
    Top = 304
  end
  object spMarkaekle: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_markaekle;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@MADI'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end>
    Left = 944
    Top = 208
  end
  object spStok: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    EnableBCD = False
    ProcedureName = 'sp_stok;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@stokkod'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 18
        Value = Null
      end>
    Left = 832
    Top = 208
  end
  object stokaras: TDataSource
    DataSet = StokAra
    Left = 72
    Top = 360
  end
  object spCari: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_Cari;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@carikod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 888
    Top = 208
  end
  object spCaris: TDataSource
    DataSet = spCari
    Left = 72
    Top = 312
  end
  object spCaYetkiliS: TDataSource
    DataSet = spCaYetkili
    Left = 72
    Top = 408
  end
  object spCaYetkili: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_cayetkili;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end>
    Left = 888
    Top = 160
  end
  object spFatHar: TADOStoredProc
    AutoCalcFields = False
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    ProcedureName = 'sp_fathar;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@bilisno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 832
    Top = 8
  end
  object FatharS: TDataSource
    DataSet = spFatHar
    Left = 16
    Top = 264
  end
  object FaturaS: TDataSource
    DataSet = spFatura
    Left = 16
    Top = 216
  end
  object spdepo: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_stdepo;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@depokod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end>
    Left = 888
    Top = 56
  end
  object depos: TDataSource
    DataSet = spdepo
    Left = 768
    Top = 448
  end
  object Fataras: TDataSource
    DataSet = FatAra
    Left = 16
    Top = 312
  end
  object spHarHarEkle: TADOStoredProc
    AutoCalcFields = False
    Connection = connect
    ProcedureName = 'sp_fatharharekle;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@tipi'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@STipi'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@adet'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@bilisno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@stokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@satirgir'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@alinangaranti'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@sno'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@sondepo'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end>
    Left = 888
    Top = 256
  end
  object garanti1: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_GarantiTakipGir;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@serino'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 880
    Top = 544
  end
  object garanti1s: TDataSource
    DataSet = garanti1
    Left = 128
    Top = 112
  end
  object garanti2: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_GarantiTakipCik;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@serino'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 832
    Top = 544
  end
  object garanti2s: TDataSource
    DataSet = garanti2
    Left = 16
    Top = 552
  end
  object serinovarmi: TADOStoredProc
    AutoCalcFields = False
    Connection = connect
    ProcedureName = 'sp_UrDevam;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@serino'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end>
    Left = 944
    Top = 448
  end
  object spHarHarUpdate: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_fatharharupdatecik;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@durum'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = Null
      end
      item
        Name = '@serino'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@tipi'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@bilisno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@depokod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 944
    Top = 400
  end
  object spserinoal: TADOStoredProc
    AutoCalcFields = False
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_serinoal;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@bilisnogir'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@satirgir'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@tipi'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@Stokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 888
    Top = 304
  end
  object spserinosil: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_serinosil;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@serinos'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@Adet'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@BilisNo'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 944
    Top = 496
  end
  object serinoals: TDataSource
    DataSet = spserinoal
    Left = 16
    Top = 360
  end
  object spfatharhar: TADOStoredProc
    AutoCalcFields = False
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_fatharhar;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@bilisno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 14
      end
      item
        Name = '@fattipi'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = 'FC'
      end>
    Left = 888
    Top = 352
  end
  object spfatharhars: TDataSource
    DataSet = spfatharhar
    Left = 16
    Top = 456
  end
  object spparcaeklesil: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_ParcaEkleSil_2;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@serino'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = '@makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = '@durum'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = '@stokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = '@ymakinano'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = '@uretimno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 880
    Top = 400
  end
  object spmakinaliste: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_makinaliste;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@makinano'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end>
    Left = 832
    Top = 160
  end
  object sppersonel: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_personel;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end>
    Left = 824
    Top = 256
  end
  object spmakinalistes: TDataSource
    DataSet = spmakinaliste
    Left = 16
    Top = 408
  end
  object spuretim: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_uretim;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@makinano'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end>
    Left = 944
    Top = 352
  end
  object spdevam: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_UrDevam;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@serino'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 880
    Top = 496
  end
  object sppersonel2: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_personel2;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@pkodu'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end>
    Left = 832
    Top = 112
  end
  object Ayarlar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ayarlar')
    Left = 313
    Top = 63
  end
  object spDepoHar: TADOStoredProc
    AutoCalcFields = False
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    ProcedureName = 'sp_DepoHar;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@bilisno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 944
    Top = 108
    object spDepoHarbilisno: TIntegerField
      FieldName = 'bilisno'
    end
    object spDepoHarsira: TIntegerField
      FieldName = 'sira'
    end
    object spDepoHarstokkod: TIntegerField
      FieldName = 'stokkod'
    end
    object spDepoHarmiktar: TFloatField
      FieldName = 'miktar'
    end
    object spDepoHarbirim: TWideStringField
      FieldName = 'birim'
      Size = 5
    end
    object spDepoHardepokod: TIntegerField
      FieldName = 'depokod'
    end
    object spDepoHartipi: TWideStringField
      FieldName = 'tipi'
      Size = 2
    end
    object spDepoHarbasildi: TWideStringField
      FieldName = 'basildi'
      Size = 1
    end
    object spDepoHargarantisuresi: TSmallintField
      FieldName = 'garantisuresi'
    end
    object spDepoHargarantivarmi: TWideStringField
      FieldName = 'garantivarmi'
      Size = 1
    end
    object spDepoHarStokkodu: TStringField
      FieldKind = fkLookup
      FieldName = 'stokkodu'
      LookupDataSet = DepoStokBul
      LookupKeyFields = 'stokkod'
      LookupResultField = 'stokkodu'
      KeyFields = 'stokkod'
      Lookup = True
    end
    object spDepoHarCinsi: TStringField
      FieldKind = fkLookup
      FieldName = 'cinsi'
      LookupDataSet = DepoStokBul
      LookupKeyFields = 'stokkod'
      LookupResultField = 'cinsi'
      KeyFields = 'stokkod'
      Lookup = True
    end
  end
  object DepoHarS: TDataSource
    DataSet = spDepoHar
    Left = 72
    Top = 500
  end
  object DepoStokBul: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select stokkod,stokkodu,cinsi from stok')
    Left = 536
    Top = 119
  end
  object spdepotran: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_DepoTran;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@bilisno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@GirDepoKod'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end
      item
        Name = '@CikDepoKod'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 944
    Top = 544
  end
  object spDepoTrAras: TDataSource
    Left = 16
    Top = 504
  end
  object qKargo: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from kargo Where KargoTanimid is not Null')
    Left = 256
    Top = 520
  end
  object stBarkod: TADOQuery
    AutoCalcFields = False
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from stBarkod '
      'where stokkod=:stokkod'
      '')
    Left = 256
    Top = 208
  end
  object stBarkods: TDataSource
    DataSet = stBarkod
    Left = 16
    Top = 112
  end
  object stBirimler: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stBirimler'
      '')
    Left = 208
    Top = 208
  end
  object StokAra: TADOQuery
    Connection = connect
    CursorType = ctStatic
    ParamCheck = False
    Parameters = <>
    SQL.Strings = (
      
        'select top 50 stokkod,stokkodu,cinsi,UstGrupId,GrupId,MarkaId,Mo' +
        'delId,AltGrupId,marka,model,grup,agrup,gstok=(select isnull(sum(' +
        'gstok),0) from StokTakip where StokTakip.stokkod=stok.stokkod),b' +
        'olum=(select isim from St_AnaGrup where St_AnaGrup.kod=stok.amba' +
        'r),GrupKodu,SayimGrubu from stok')
    Left = 472
    Top = 208
  end
  object Doviz: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from doviz'
      '')
    Left = 664
    Top = 120
  end
  object kdv: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct kdv from kdv'
      '')
    Left = 368
    Top = 320
  end
  object StDagiticiS: TDataSource
    DataSet = StDagitici
    Left = 72
    Top = 456
  end
  object CariTuru: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from carituru where state = 1'
      ''
      '')
    Left = 208
    Top = 120
  end
  object CaHesap: TADOQuery
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnCalcFields = CaHesapCalcFields
    DataSource = garanti1s
    Parameters = <
      item
        Name = 'carikod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    SQL.Strings = (
      'select * from CaHesap'
      'where carikod=:carikod'
      '')
    Left = 312
    Top = 120
    object CaHesaphesapadi: TStringField
      DisplayLabel = 'Hesap'
      DisplayWidth = 26
      FieldName = 'hesapadi'
    end
    object CaHesapdovizkodu: TStringField
      DisplayLabel = 'D'#246'viz'
      DisplayWidth = 5
      FieldName = 'dovizkodu'
      Size = 5
    end
    object CaHesapborc: TBCDField
      DisplayLabel = 'Bor'#231
      DisplayWidth = 18
      FieldName = 'borc'
      Visible = False
      DisplayFormat = '###.###,##'
      EditFormat = '###.###,##'
      Precision = 19
    end
    object CaHesapalacak: TBCDField
      DisplayLabel = 'Alacak'
      DisplayWidth = 18
      FieldName = 'alacak'
      Visible = False
      DisplayFormat = '###.###,##'
      EditFormat = '###.###,##'
      Precision = 19
    end
    object CaHesapcarikod: TIntegerField
      DisplayWidth = 10
      FieldName = 'carikod'
      Visible = False
    end
    object CaHesapcahesapkod: TAutoIncField
      DisplayWidth = 10
      FieldName = 'cahesapkod'
      ReadOnly = True
      Visible = False
    end
    object CaHesapbakiye: TCurrencyField
      DisplayWidth = 18
      FieldKind = fkCalculated
      FieldName = 'bakiye'
      DisplayFormat = '###.###,##'
      EditFormat = '###.###,##'
      currency = False
      Calculated = True
    end
  end
  object CaHesapS: TDataSource
    DataSet = CaHesap
    Left = 72
    Top = 112
  end
  object cabankahes: TADOQuery
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'carikod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    SQL.Strings = (
      'select * from cabankahes'
      'where carikod=:carikod'
      '')
    Left = 360
    Top = 120
  end
  object cabankahesS: TDataSource
    DataSet = cabankahes
    Left = 70
    Top = 216
  end
  object CariAra: TADOQuery
    Connection = connect
    CursorType = ctStatic
    ParamCheck = False
    Parameters = <>
    SQL.Strings = (
      'select * from Cari'
      ''
      '')
    Left = 256
    Top = 120
  end
  object CariAraS: TDataSource
    DataSet = CariAra
    Left = 16
    Top = 160
  end
  object FatAra: TADOQuery
    Connection = connect
    CursorType = ctStatic
    AfterCancel = CaHesapCalcFields
    Parameters = <>
    SQL.Strings = (
      'select *,'
      'Carikodu=dbo.getcarikodu(carikod),'
      'firmaAdi=dbo.getfirmaadi(carikod),'
      
        'bolumkoduadi=(case bolumkodu when '#39'U'#39' then  '#39#220'retim'#39' when  '#39'M'#39' t' +
        'hen '#39'Merkez'#39' when '#39'Z'#39' then '#39'Ma'#287'aza'#39' end),'
      
        'ambaradi=(select depoadi from depolar where depolar.id=fatura.am' +
        'bar)'
      ' from fatura')
    Left = 208
    Top = 168
  end
  object spuretims: TDataSource
    DataSet = spuretim
    Left = 768
    Top = 255
  end
  object CariHar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'carikod'
        DataType = ftInteger
        Size = -1
        Value = 0
      end>
    SQL.Strings = (
      'SELECT *'
      'FROM carihar '
      'where carikod=:carikod'
      'order by tarih')
    Left = 473
    Top = 120
  end
  object CariHarS: TDataSource
    DataSet = CariHar
    Left = 72
    Top = 160
  end
  object spdovizkur: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_DovizKuru;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@DovizKodu'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@kur'
        Attributes = [paNullable]
        DataType = ftBCD
        Direction = pdInputOutput
        Precision = 19
        Value = Null
      end>
    Left = 888
    Top = 112
  end
  object spFatura: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_fatura;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@bilisno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 832
    Top = 56
  end
  object UrEmriHar: TADOQuery
    AutoCalcFields = False
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = UrEmriHarBeforePost
    AfterPost = UrEmriHarAfterPost
    BeforeDelete = UrEmriHarBeforeDelete
    EnableBCD = False
    Parameters = <
      item
        Name = 'EmirNo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from urEmriHar'
      'where emirno=:EmirNo'
      'order by urunck,stokkodu')
    Left = 352
    Top = 520
  end
  object UrEmriS: TDataSource
    DataSet = Uremri
    Left = 768
    Top = 304
  end
  object UrEmriHarS: TDataSource
    DataSet = UrEmriHar
    Left = 768
    Top = 352
  end
  object parcaliste: TADOTable
    Connection = connect
    CursorType = ctStatic
    TableName = 'stok'
    Left = 208
    Top = 424
  end
  object parcalisteds: TDataSource
    DataSet = parcaliste
    Left = 768
    Top = 544
  end
  object atilstok: TADOTable
    Connection = connect
    CursorType = ctStatic
    TableName = 'At'#305'lstok'
    Left = 419
    Top = 64
  end
  object atilstoks: TDataSource
    DataSet = atilstok
    Left = 771
    Top = 208
  end
  object Receteara: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select distinct recete.stokkod,recete.stokkodu,recete.cinsi,rece' +
        'te.id  from recete')
    Left = 208
    Top = 520
  end
  object recetearads: TDataSource
    DataSet = Receteara
    Left = 72
    Top = 552
  end
  object KullaniciYetki: TADOQuery
    Connection = connect
    Parameters = <
      item
        Name = 'kullaniciid1'
        Size = -1
        Value = Null
      end
      item
        Name = 'kullaniciid2'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select id,bagliform,refid,yetki,'
      
        'grupyetki=(select ISNULL(max(grupyetki),0) from kullaniciyetki a' +
        's a where a.bagliform=b.bagliform and a.refid=b.refid and kim='#39'G' +
        #39' and kullaniciid in (select grupid from grupkullanicilar where ' +
        'kullaniciid=:kullaniciid1))'
      ' from kullaniciyetki as b'
      'where kullaniciid=:kullaniciid2 and kim='#39'K'#39' ')
    Left = 304
    Top = 320
  end
  object Gecici: TADOQuery
    Connection = connect
    Parameters = <>
    Left = 472
    Top = 168
  end
  object sifrekontrol: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'username'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'password'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select K.*,isnull(P.Perkod,0) Perkod,P.PersonelNo,P.Adi,P.Soyadi' +
        ',P.Aktif ,P.Gorev,P.Kisim,P.Bolum,P.Departman,P.Direktorluk,S.SE' +
        'VIYE  Seviye,P.Email,P.Password PersonelSifre'
      
        ',TeknikBolum=(select Top 1 TKodu from p_tekniktipi_calisan Where' +
        ' Perkod=P.Perkod),MolaTipi=isnull(P.MolaTipi,1),P.Sube,K.SuperVi' +
        'sor'
      'from kullanici K'
      'left join Perkart P on (K.Personelid=P.Perkod)'
      'left join CS_PERSONEL_SEVIYE_TANIM S on (S.ID=P.Seviye)'
      'where K.username=:username and K.password=:password')
    Left = 416
    Top = 208
  end
  object country: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from country')
    Left = 415
    Top = 120
  end
  object ServerTarihQ: TADOQuery
    Connection = connect
    Parameters = <>
    SQL.Strings = (
      'SELECT GETDATE()')
    Left = 603
    Top = 208
  end
  object Hersey: TADOQuery
    Connection = connect
    Parameters = <>
    Left = 256
    Top = 168
  end
  object StDagitici: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from stDagitici'
      'where stokkod=:stokkod'
      '')
    Left = 360
    Top = 208
  end
  object Connect_Unity: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=klm2013*;Persist Security Info=True' +
      ';User ID=casper;Initial Catalog=CASPER_2014;Data Source=192.168.' +
      '0.1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Application Name=CasperPrg;Workstation ID=MURATB;Use Encryp' +
      'tion for Data=False;Tag with column collation when possible=Fals' +
      'e'
    ConnectionTimeout = 50
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 73
    Top = 3
  end
  object HatirlatmaQ: TADOQuery
    Connection = connect
    Parameters = <
      item
        Name = 'userid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from hatirlatma'
      'where userid=:userid'
      'order by zaman')
    Left = 360
    Top = 168
  end
  object HatirlatmaSilQ: TADOQuery
    Connection = connect
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'delete from hatirlatma'
      'where id=:id')
    Left = 312
    Top = 168
  end
  object Depokodubul: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'depokod'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'select top 1 depoadi from depolar'
      'where id=:depokod')
    Left = 599
    Top = 120
  end
  object Uremri: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Emirno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from urEmri'
      'where emirno=:Emirno')
    Left = 304
    Top = 520
  end
  object Unity_StokBul: TADOQuery
    Connection = Connect_Unity
    LockType = ltReadOnly
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'SELECT sum(S.ONHAND) as miktar FROM  LG_015_01_STINVTOT S'
      'WITH(NOLOCK, INDEX = I015_01_STINVTOT_I2) '
      'WHERE  S.stockref=:stokkod and  (INVENNO = 7)')
    Left = 288
    Top = 376
  end
  object AmbarQ: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from depolar Where Aktif=1')
    Left = 208
    Top = 63
  end
  object AmbarQS: TDataSource
    DataSet = AmbarQ
    Left = 768
    Top = 400
  end
  object ilQ: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select icerik,tur from il'
      'order by icerik')
    Left = 256
    Top = 320
  end
  object SubeQ: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'username'
        DataType = ftString
        Size = 5
        Value = 'fethi'
      end>
    SQL.Strings = (
      'select * from sube'
      
        'where id in (select subeid from subeyetki where kullaniciid=(sel' +
        'ect id from kullanici where username=:username))')
    Left = 312
    Top = 208
  end
  object SubeQS: TDataSource
    DataSet = SubeQ
    Left = 768
    Top = 496
  end
  object SiparisHar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = SiparisHarAfterOpen
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select unity_siparishar_2006.selected,unity_siparishar_2006.id,u' +
        'nity_siparishar_2006.stokkod,stok.stokkodu,stok.cinsi,unity_sipa' +
        'rishar_2006.miktar,'
      
        'unity_siparis_2006.Carikod,Cari.CariKodu,Cari.FirmaAdi,Cari.Tems' +
        'ilcisi,unity_siparishar_2006.LineType,Anastokkod=unity_siparisha' +
        'r_2006.LineType,KarmaMiktar=unity_siparishar_2006.LineType   '
      'from unity_siparishar_2006,stok,unity_siparis_2006,Cari'
      'where (stok.mamultipi='#39'Y'#39' or stok.mamultipi='#39'Z'#39') '
      'and unity_siparishar_2006.LineType<>6'
      'and stok.stokkod=unity_siparishar_2006.stokkod  '
      'and unity_siparis_2006.id=unity_siparishar_2006.Siparisid'
      'and unity_siparis_2006.Carikod=Cari.Carikod'
      'and siparisid=:siparisid '
      
        '--and stok.stokkod not in (select stokkod from stok where GrupId' +
        ' in (49))'
      'Order By Stok.Stokkod'
      '')
    Left = 536
    Top = 215
  end
  object SiparisHarS: TDataSource
    DataSet = SiparisHar
    Left = 72
    Top = 64
  end
  object emirara: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from Uremri'
      'where emirno=:emirno')
    Left = 208
    Top = 264
  end
  object emiraraS: TDataSource
    DataSet = emirara
    Left = 72
    Top = 264
  end
  object GstokQ: TADOQuery
    Connection = connect
    Parameters = <
      item
        Name = 'depokod'
        Size = -1
        Value = Null
      end
      item
        Name = 'stokkod'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select isnull(gstok,0) as gstok from StokTakip '
      'where depokod=:depokod and stokkod=:stokkod')
    Left = 416
    Top = 168
  end
  object TumSubelerQ: TADOQuery
    Connection = connect
    CursorType = ctStatic
    ParamCheck = False
    Parameters = <>
    SQL.Strings = (
      'select * from Sube')
    Left = 208
    Top = 376
  end
  object ilceQ: TADOQuery
    Connection = connect
    CursorType = ctStatic
    DataSource = ilQS
    Parameters = <
      item
        Name = 'tur'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'select * from ilce'
      'where ilce.ilid=:tur'
      'order by ilce')
    Left = 208
    Top = 320
  end
  object ilQS: TDataSource
    DataSet = ilQ
    Left = 128
    Top = 64
  end
  object aqServer: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stBirimler'
      '')
    Left = 360
    Top = 64
  end
  object spActive: TADOStoredProc
    Connection = connect
    Parameters = <>
    Left = 888
    Top = 8
  end
  object aqActive: TADOQuery
    Connection = connect
    Parameters = <>
    Left = 256
    Top = 64
  end
  object Bosislem: TADOQuery
    Connection = connect
    CursorType = ctStatic
    CommandTimeout = 100
    Parameters = <>
    SQL.Strings = (
      'x')
    Left = 256
    Top = 264
  end
  object acBosislem: TADOCommand
    CommandTimeout = 300
    Connection = connect
    Parameters = <>
    Left = 456
    Top = 296
  end
  object aqMola: TADOQuery
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'Perkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SET DATEFIRST 1 '
      'SELECT Ma.MolaAdi,'
      
        'Convert(Varchar(8),Mth.PazartesiSaat,108) Saat1,Convert(Varchar(' +
        '8),DateADD(mi,PazartesiDk,Mth.PazartesiSaat),108) Saat1Dk1,Pazar' +
        'tesiDk Mola1Dk,'
      
        'Convert(Varchar(8),Mth.SaliSaat,108) Saat2,Convert(Varchar(8),Da' +
        'teADD(mi,SaliDk,Mth.SaliSaat),108) Saat2Dk2,SaliDk Mola2Dk,'
      
        'Convert(Varchar(8),Mth.CarsambaSaat,108) Saat3,Convert(Varchar(8' +
        '),DateADD(mi,CarsambaDk,Mth.CarsambaSaat),108) Saat3Dk3,Carsamba' +
        'Dk Mola3Dk,'
      
        'Convert(Varchar(8),Mth.PersembeSaat,108) Saat4,Convert(Varchar(8' +
        '),DateADD(mi,PersembeDk,Mth.PersembeSaat),108) Saat4Dk4,Persembe' +
        'Dk Mola4Dk,'
      
        'Convert(Varchar(8),Mth.CumaSaat,108) Saat5,Convert(Varchar(8),Da' +
        'teADD(mi,CumaDk,Mth.CumaSaat),108) Saat5Dk5,CumaDk Mola5Dk,'
      
        'Convert(Varchar(8),Mth.CumartesiSaat,108) Saat6,Convert(Varchar(' +
        '8),DateADD(mi,CumartesiDk,Mth.CumartesiSaat),108) Saat6Dk6,Cumar' +
        'tesiDk Mola6Dk,'
      
        'Convert(Varchar(8),Mth.PazarSaat,108) Saat7,Convert(Varchar(8),D' +
        'ateADD(mi,Pazardk,Mth.PazarSaat),108) Saat7Dk7,Pazardk Mola7Dk,'
      'GetDate() Tarih,DATEPART(dw, GETDATE()) Gun'
      'from Per_MolaTanimhar Mth '
      'left join Per_MolaAdiTanimlari Ma on (Mth.MolaAdi=Ma.id)'
      'Where Mth.Molaid in'
      '(select Top 1 id from Per_MolaTanim '
      'Where SablonAdi in'
      
        '(select (select Sablonadi from Per_MolaTanim Where id= Perkart.K' +
        'isim) from Perkart Where Perkod=:Perkod)'
      'and '
      '(BasTarih<=Getdate() and BitTarih>=Getdate()))')
    Left = 305
    Top = 426
  end
  object aqGrup: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stGrupTanim')
    Left = 560
    Top = 416
  end
  object aqMarka: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stMarkaTanim')
    Left = 513
    Top = 416
  end
  object aqModel: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stModelTanim')
    Left = 464
    Top = 416
  end
  object aqAltGrup: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stAltGrupTanim')
    Left = 417
    Top = 416
  end
  object aqUstGrup: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stUstGrupTanim')
    Left = 616
    Top = 416
  end
  object dsAltGrup: TDataSource
    DataSet = aqAltGrup
    Left = 416
    Top = 365
  end
  object dsModel: TDataSource
    DataSet = aqModel
    Left = 464
    Top = 364
  end
  object dsMarka: TDataSource
    DataSet = aqMarka
    Left = 512
    Top = 364
  end
  object dsGrup: TDataSource
    DataSet = aqGrup
    Left = 560
    Top = 364
  end
  object dsUstGrup: TDataSource
    DataSet = aqUstGrup
    Left = 616
    Top = 364
  end
  object aqUstGruphar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stustgruphar')
    Left = 616
    Top = 464
    object aqUstGrupharid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object aqUstGrupharUstGrupTanimid: TIntegerField
      FieldName = 'UstGrupTanimid'
    end
    object aqUstGrupharisim: TStringField
      FieldKind = fkLookup
      FieldName = 'isim'
      LookupDataSet = aqUstGrup
      LookupKeyFields = 'id'
      LookupResultField = 'isim'
      KeyFields = 'UstGrupTanimid'
      Size = 50
      Lookup = True
    end
  end
  object aqGruphar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    DataSource = dsUstGruphar
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 1
      end>
    SQL.Strings = (
      'select * from stGruphar Where Ustgrupid=:id')
    Left = 560
    Top = 465
    object aqGrupharid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object aqGrupharAnaGrupKod: TStringField
      FieldName = 'AnaGrupKod'
      FixedChar = True
      Size = 1
    end
    object aqGrupharGrupTanimid: TIntegerField
      FieldName = 'GrupTanimid'
    end
    object aqGrupharBolumKodu: TStringField
      FieldName = 'BolumKodu'
      Size = 5
    end
    object aqGrupharUstGrupid: TIntegerField
      FieldName = 'UstGrupid'
    end
    object aqGrupharRmaBolum: TIntegerField
      FieldName = 'RmaBolum'
    end
    object aqGrupharisim: TStringField
      FieldKind = fkLookup
      FieldName = 'isim'
      LookupDataSet = aqGrup
      LookupKeyFields = 'id'
      LookupResultField = 'isim'
      KeyFields = 'GrupTanimid'
      Size = 50
      Lookup = True
    end
  end
  object aqMarkahar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    DataSource = dsGruphar
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 2
      end>
    SQL.Strings = (
      'select * from stmarkahar Where grupid=:id')
    Left = 512
    Top = 463
    object aqMarkaharid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object aqMarkaharMarkaTanimid: TIntegerField
      FieldName = 'MarkaTanimid'
    end
    object aqMarkaharGrupid: TIntegerField
      FieldName = 'Grupid'
    end
    object aqMarkaharisim: TStringField
      FieldKind = fkLookup
      FieldName = 'isim'
      LookupDataSet = aqMarka
      LookupKeyFields = 'id'
      LookupResultField = 'isim'
      KeyFields = 'MarkaTanimid'
      Size = 50
      Lookup = True
    end
  end
  object aqModelhar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    DataSource = dsMarkahar
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 2
      end>
    SQL.Strings = (
      'select *  from stModelhar Where markaid=:id')
    Left = 464
    Top = 464
    object aqModelharid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object aqModelharModelTanimid: TIntegerField
      FieldName = 'ModelTanimid'
    end
    object aqModelharMarkaid: TIntegerField
      FieldName = 'Markaid'
    end
    object aqModelharisim: TStringField
      FieldKind = fkLookup
      FieldName = 'isim'
      LookupDataSet = aqModel
      LookupKeyFields = 'id'
      LookupResultField = 'isim'
      KeyFields = 'ModelTanimid'
      Size = 50
      Lookup = True
    end
  end
  object aqAltGruphar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    DataSource = dsModelhar
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 1
      end>
    SQL.Strings = (
      'select * from staltGruphar Where modelid=:id')
    Left = 416
    Top = 464
    object aqAltGrupharid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object aqAltGrupharAltGrupTanimid: TIntegerField
      FieldName = 'AltGrupTanimid'
    end
    object aqAltGrupharModelid: TIntegerField
      FieldName = 'Modelid'
    end
    object aqAltGrupharisim: TStringField
      FieldKind = fkLookup
      FieldName = 'isim'
      LookupDataSet = aqAltGrup
      LookupKeyFields = 'id'
      LookupResultField = 'isim'
      KeyFields = 'AltGrupTanimid'
      Size = 50
      Lookup = True
    end
  end
  object dsAltGruphar: TDataSource
    DataSet = aqAltGruphar
    Left = 416
    Top = 516
  end
  object dsModelhar: TDataSource
    DataSet = aqModelhar
    Left = 464
    Top = 516
  end
  object dsMarkahar: TDataSource
    DataSet = aqMarkahar
    Left = 512
    Top = 516
  end
  object dsGruphar: TDataSource
    DataSet = aqGruphar
    Left = 560
    Top = 516
  end
  object dsUstGruphar: TDataSource
    DataSet = aqUstGruphar
    Left = 616
    Top = 516
  end
  object aqPersonel: TADOQuery
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 300
    Parameters = <>
    SQL.Strings = (
      'select Perkod,Adi+'#39' '#39'+Soyadi AdSoyad,Departman from Perkart'
      'Order by Adi+'#39' '#39'+Soyadi')
    Left = 523
    Top = 320
  end
  object unityBosislem: TADOQuery
    Connection = Connect_Unity
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'x')
    Left = 328
    Top = 264
  end
  object MailList: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tblMailList order by AdSoyad')
    Left = 520
    Top = 264
  end
  object MailServis: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select Ref,Host,infoMail,Username,Password,Port,TeknikServisMail' +
        ' From MailServis')
    Left = 568
    Top = 264
  end
  object dsMailServis: TDataSource
    DataSet = MailServis
    Left = 624
    Top = 260
  end
  object StyleRepository: TcxStyleRepository
    Left = 664
    Top = 11
    PixelsPerInch = 96
    object cxStyle1: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle3: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle4: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle5: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle6: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle7: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = 14872561
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object cxStyle8: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 10070188
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = 14215660
    end
    object cxStyle9: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle10: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = 14653184
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object cxStyle11: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 4707838
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle12: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object cxStyle13: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16777088
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      TextColor = clBlue
    end
    object cxStyle14: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clLime
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      TextColor = clBlack
    end
    object cxStyle15: TcxStyle
      AssignedValues = [svColor]
      Color = clMoneyGreen
    end
    object tvssDevExpress: TcxGridTableViewStyleSheet
      Caption = 'DevExpress'
      Styles.Background = cxStyle1
      Styles.Content = cxStyle2
      Styles.ContentEven = cxStyle3
      Styles.ContentOdd = cxStyle4
      Styles.FilterBox = cxStyle5
      Styles.Inactive = cxStyle10
      Styles.IncSearch = cxStyle11
      Styles.Selection = cxStyle14
      Styles.Footer = cxStyle6
      Styles.Group = cxStyle7
      Styles.GroupByBox = cxStyle8
      Styles.Header = cxStyle9
      Styles.Indicator = cxStyle12
      Styles.Preview = cxStyle13
      BuiltIn = True
    end
  end
  object aqisletimSistemi: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select Stokkod,Stokkodu,Cinsi from stok where UstGrupId=7 and Gr' +
        'upId=49 and Aktif='#39'A'#39
      'order by stokkodu')
    Left = 1091
    Top = 385
  end
  object spserinover: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_serinover;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@sno'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdOutput
        Size = 50
        Value = Null
      end
      item
        Name = '@stokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 880
    Top = 448
  end
  object spTDegisimSerinover: TADOStoredProc
    Connection = connect
    ProcedureName = 'sp_TdegisimSerinover;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Esno'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@Ysno'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdOutput
        Size = 50
        Value = Null
      end>
    Left = 1023
    Top = 448
  end
  object SiparisHar2: TADOQuery
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select unity_siparishar_2006.id,unity_siparishar_2006.id,stok.st' +
        'okkod,stok.stokkodu,stok.cinsi,unity_siparishar_2006.miktar*TblS' +
        'tokKarma.Miktar Miktar,'
      
        'Cari.Carikod,Cari.CariKodu,Cari.FirmaAdi,Cari.Temsilcisi,unity_s' +
        'iparishar_2006.LineType,TblStokKarma.Anastokkod,KarmaMiktar=unit' +
        'y_siparishar_2006.miktar'
      
        'from unity_siparishar_2006,TblStokKarma,stok,unity_siparis_2006,' +
        'Cari'
      'where (stok.mamultipi='#39'Y'#39' or stok.mamultipi='#39'Z'#39') '
      'and unity_siparishar_2006.LineType=6'
      'and unity_siparishar_2006.stokkod=TblStokKarma.Anastokkod  '
      'and stok.stokkod=TblStokKarma.stokkod  '
      'and TblStokKarma.islemyeri='#39'U'#39
      'and unity_siparis_2006.id=unity_siparishar_2006.Siparisid'
      'and unity_siparis_2006.Carikod=Cari.Carikod'
      
        'and siparisid=:siparisid and stok.stokkod not in (select stokkod' +
        ' from stok where GrupId in (49))'
      'Order By Stok.Stokkod'
      '')
    Left = 536
    Top = 170
  end
  object Bosislem2: TADOQuery
    Connection = connect
    CursorType = ctStatic
    CommandTimeout = 100
    Parameters = <>
    SQL.Strings = (
      'x')
    Left = 385
    Top = 265
  end
  object aqMesaj: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Perkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select Mesaj,MesajBas=Convert(varchar(8),MesajSaat,108),MesajBit' +
        '=Convert(varchar(8),DateAdd(mi,MesajSure,MesajSaat),108) from tb' +
        'lPersonelMesaj Where Perkod=:Perkod'
      
        'and ((Getdate() between BasTarih and BitTarih)or(BasTarih is nul' +
        'l and BitTarih is null))'
      'and Aktif=1')
    Left = 305
    Top = 470
  end
  object dspersonel: TDataSource
    DataSet = sppersonel
    Left = 706
    Top = 256
  end
  object aqDepolar: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Depolar Where Aktif=1')
    Left = 223
    Top = 474
  end
  object dsDepolar: TDataSource
    DataSet = aqDepolar
    Left = 152
    Top = 428
  end
  object dsqKargo: TDataSource
    DataSet = qKargo
    Left = 256
    Top = 625
  end
  object aqMolaSD: TADOQuery
    Connection = connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'Perkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SET DATEFIRST 1 '
      'SELECT '
      'Ma.MolaAdi,'
      
        'Convert(Varchar(8),Mth.PazartesiSaat,108) Saat1,Convert(Varchar(' +
        '8),DateADD(mi,PazartesiDk,Mth.PazartesiSaat),108) Saat1Dk1,Pazar' +
        'tesiDk Mola1Dk,'
      
        'Convert(Varchar(8),Mth.SaliSaat,108) Saat2,Convert(Varchar(8),Da' +
        'teADD(mi,SaliDk,Mth.SaliSaat),108) Saat2Dk2,SaliDk Mola2Dk,'
      
        'Convert(Varchar(8),Mth.CarsambaSaat,108) Saat3,Convert(Varchar(8' +
        '),DateADD(mi,CarsambaDk,Mth.CarsambaSaat),108) Saat3Dk3,Carsamba' +
        'Dk Mola3Dk,'
      
        'Convert(Varchar(8),Mth.PersembeSaat,108) Saat4,Convert(Varchar(8' +
        '),DateADD(mi,PersembeDk,Mth.PersembeSaat),108) Saat4Dk4,Persembe' +
        'Dk Mola4Dk,'
      
        'Convert(Varchar(8),Mth.CumaSaat,108) Saat5,Convert(Varchar(8),Da' +
        'teADD(mi,CumaDk,Mth.CumaSaat),108) Saat5Dk5,CumaDk Mola5Dk,'
      
        'Convert(Varchar(8),Mth.CumartesiSaat,108) Saat6,Convert(Varchar(' +
        '8),DateADD(mi,CumartesiDk,Mth.CumartesiSaat),108) Saat6Dk6,Cumar' +
        'tesiDk Mola6Dk,'
      
        'Convert(Varchar(8),Mth.PazarSaat,108) Saat7,Convert(Varchar(8),D' +
        'ateADD(mi,Pazardk,Mth.PazarSaat),108) Saat7Dk7,Pazardk Mola7Dk,'
      'GetDate() Tarih,DATEPART(dw, GETDATE()) Gun'
      'from Per_MolaTanimhar Mth '
      'left join Per_MolaAdiTanimlari Ma on (Mth.MolaAdi=Ma.id)'
      'Where Mth.Molaid=(Select dbo.GetMolaid(:Perkod))')
    Left = 358
    Top = 426
  end
  object dsMolaSD: TDataSource
    DataSet = aqMolaSD
    Left = 359
    Top = 381
  end
  object aqTumDepoBolum: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from cari where Tipi=4')
    Left = 142
    Top = 480
  end
  object HTTP: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = #39'application/x-www-form-urlencoded'
    Request.Accept = '*/*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 127
    Top = 255
  end
  object spSendSms: TADOStoredProc
    Connection = connect
    CursorType = ctStatic
    ProcedureName = 'sp_SendSms;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@FormNo'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Tip'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 671
    Top = 180
  end
  object Servis: TADOQuery
    Connection = connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Servis With(Nolock)')
    Left = 465
    Top = 67
  end
  object Connect_Unity2: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=klm2013*;Persist Security Info=True' +
      ';User ID=casper;Initial Catalog=CASPER_2014;Data Source=192.168.' +
      '0.1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Application Name=CasperPrg;Workstation ID=MURATB;Use Encryp' +
      'tion for Data=False;Tag with column collation when possible=Fals' +
      'e'
    ConnectionTimeout = 50
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 158
    Top = 3
  end
  object cnnnExcel: TADOConnection
    LoginPrompt = False
    Left = 254
    Top = 12
  end
end
